home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp3.arc / PIBUPLOB.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-11  |  862b  |  35 lines
  1. BEGIN (* PibUpLoad *)
  2.                                    (* Get protocol for upload *)
  3.  
  4.    IF Transfer_Protocol = None THEN
  5.       Transfer_Protocol := Get_Upload_Protocol;
  6.  
  7.                                    (* Perform transfer *)
  8.    CASE Transfer_Protocol OF
  9.  
  10.       Ascii        : Send_Ascii_File;
  11.  
  12.       Modem7_Chk,
  13.       Ymodem_Batch,
  14.       Ymodem,
  15.       Xmodem_CRC,
  16.       Telink,
  17.       Modem7_CRC,
  18.       Xmodem_Chk   : Do_Xmodem_Upload( Transfer_Protocol );
  19.  
  20.       Kermit       : Send_Kermit_File;
  21.  
  22.       ELSE ;
  23.  
  24.    END  (* CASE *);
  25.                                    (* Indicate end of transfer *)
  26.  
  27.    IF ( NOT Silent_Mode ) AND ( NOT ( Transfer_Protocol = None ) ) THEN
  28.       FOR I := 1 TO Transfer_Bells DO
  29.          BEGIN
  30.             WRITE( CHR( BELL ) );
  31.             DELAY( 250 );
  32.          END;
  33.  
  34. END   (* PibUpLoad *);
  35.